home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1999 February
/
Software of the Month - Ultimate Collection Shareware 258.iso
/
pc
/
Intro.dir
/
00001_Script_1
next >
Wrap
Text File
|
1998-12-07
|
4KB
|
168 lines
on startMovie
global LINECLICK
set LINECLICK to 0
--* open or create file
set STARTM to new(xtra "fileio")
createFile STARTM, "c:\STARTM.SMC"
--* This declares the variables for the finger cursor. *
global FINGER, FINGERMASK,MAGNIFY, MAGNIFY2, MAGNIFYMASK
set FINGER to the memberNum of member "Finger1"
set FINGERMASK to the memberNum of member "Finger2"
glowClear()
end
--* This handler hides/shows the glow images. eg: glow(5,TRUE) *
on glow WHICHSPRITE, TRUEORFALSE
set the visible of sprite WHICHSPRITE to TRUEORFALSE
end glow
--* TURN OFF ALL GLOWS ON START
on glowClear
repeat with i = 19 to 30
glow(i)
end repeat
end
--* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*
on textglow WHICHMEMBER, COLORNUMBER
set the foreColor of member WHICHMEMBER to COLORNUMBER
end textglow
--* THIS HANDLER EXAMPLE OF DISABLEING HOTSPOTS WHEN RUNNING MIAW*
--on mouseEnter
-- if not count(the windowList) then
-- doRollover(52)
-- end if
--end
--
--
--on mouseLeave
-- if not count(the windowList) then
-- doRollout(52)
-- end if
--end
--* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *
on openMIAW MYWINDOW
set myRect=the rect of window MYWINDOW
set myStage=the rect of the Stage
set myWidth=(getAt(myRect,3)-getAt(myRect,1))
set myHeight=(getAt(myRect,4)-getAt(myRect,2))
set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
set the rect of window MYWINDOW=myNewRect
set the windowType of window MYWINDOW to 2
open window MYWINDOW
end openMIAW
--* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *
on doRollover NUMSPRITE,NUMSOUND
glow(numsprite,TRUE)
global finger,fingermask
cursor[finger,fingermask]
case NUMSOUND of
1: puppetsound 1, "Scissors"
2: puppetsound 1, "Butane"
3: puppetsound 1, "Scissors"
4: puppetsound 1, "Scissors"
end case
updatestage
end
on doRollover3 NUMSPRITE,NUMSOUND
glow(numsprite,TRUE)
global MAGNIFY, MAGNIFYMASK
cursor [MAGNIFY,MAGNIFYMASK]
updatestage
case NUMSOUND of
1: puppetsound 1, "Scissors"
2: puppetsound 1, "Butane"
3: puppetsound 1, "Scissors"
4: puppetsound 1, "Scissors"
end case
end
on doRollover4 NUMSPRITE,NUMSOUND
glow(numsprite,TRUE)
global MAGNIFY2, MAGNIFYMASK
cursor [MAGNIFY2,MAGNIFYMASK]
updatestage
case NUMSOUND of
1: puppetsound 1, "Scissors"
2: puppetsound 1, "Butane"
3: puppetsound 1, "Scissors"
4: puppetsound 1, "Scissors"
end case
end
--* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
on doRollout numsprite
glow(numsprite,FALSE)
cursor 0
end
--* PLAYS A CLICK SOUND
on doClick
puppetsound 1,"close"
updateStage
end
on doZoomout numsprite,soundwait
puppetsound 1, "close"
if soundwait then
repeat while soundbusy (1)
end repeat
set soundwait to FALSE
end if
glow(numsprite, TRUE)
global MAGNIFY2, MAGNIFYMASK
cursor [MAGNIFY2,MAGNIFYMASK]
updatestage
end
on doZoomin numsprite,soundwait
puppetsound 1, "close"
if soundwait then
repeat while soundbusy (1)
end repeat
set soundwait to FALSE
end if
glow(numsprite, TRUE)
global MAGNIFY, MAGNIFYMASK
cursor [MAGNIFY,MAGNIFYMASK]
updatestage
end